if (%-isnosuch. [ $+ [ $2 ] ] <= 0) disps No such server %col.target $+ $2
_timersinc 15 -isnosuch. $+ $2
halt
}
raw 407:*duplicate recipients*:disps Duplicate recipients for %col.target $+ $2 $+ (no message sent) | halt
raw 408:*no such service*:disps No such service %col.target $+ $3
raw 409:*no origin*:disps No origin specified for server PING or PONG | halt
raw 411:*no recipient give*:disps $2-4 %col.info2 $+ $5- | halt
raw 412:*no text*:disps No text given to send | halt
raw 413:*no toplevel domain*:disps No toplevel domain given- %col.target $+ $2 | halt
raw 414:*wildcard in*domain*:disps Wildcard in toplevel domain- %col.target $+ $2 | halt
raw 416:*too many lines in*output*:disps Too much output for your %col.info2 $+ $2 $+ command, restrict request and try again | halt
raw 421:*unknown command*:disps Unknown command- %col.info2 $+ $2 | halt
raw 422:*motd file*:if ($nick != $server) disps Server error in retreiving Message of the day for %col.info2 $+ $nick | else disps Server error in retreiving Message of the day | halt
raw 423:*no admin*info*:disps Server error in retreiving Administration info for %col.targ $+ $2 | halt
raw 424:*file error*:disps Error at server- %col.att $+ $2- | halt
raw 437:*nick*chan*temp*unavail*:{
if ($_ischan($2)) disprs $2 [[ $+ %col.info1 $+ $lower($2) $+ ] Channel is temporarily unavailable
else disps Nickname $2 is temporarily unavailable
}
raw 439:*target change too fast*:{
if ($_ischan($2)) set %.tc.pre [[ $+ %col.info1 $+ $lower($2) $+ ]
else dispr $2 [[ $+ %col.info1 $+ $lower($2) $+ ] Cannot send to channel- You are %col.dark $+ banned or channel may be %col.dark $+ desynched
halt
}
raw 405:*joined too many*:_nomrej $2 | if ($findtok(%_repjoins,$2,32)) halt | disps [[ $+ %col.info1 $+ $lower($2) $+ ] Cannot join channel- limit of %col.target $+ $chan(0) $+ channels reached | beep 1 1 | halt
raw 441:*:_chands $nick o $chan $2 | disprs $3 [[ $+ %col.info1 $+ $lower($3) $+ ] %col.target $+ $2 $+ is not on channel | halt
raw 442:*:_chands $nick n $chan | disps [[ $+ %col.info1 $+ $lower($2) $+ ] You are not on the channel | halt
raw 443:*already on*chan*:disprs $3 [[ $+ %col.info1 $+ $lower($3) $+ ] %col.target $+ $2 $+ is already on channel (cannot invite) | halt
raw 467:*key already set*:disprs $2 [[ $+ %col.info1 $+ $lower($2) $+ ] Channel key already set ( $+ %col.dark $+ $chan($2).key $+ ) | halt
raw 468:*server*change mode*:disprs $2 [[ $+ %col.info1 $+ $lower($2) $+ ] Only servers can change that mode | halt
raw 471:*:_nomrej $2 | if ($findtok(%_repjoins,$2,32)) halt | disps [[ $+ %col.info1 $+ $lower($2) $+ ] Cannot join channel- Channel is %col.dark $+ full (mode %col.dark $+ +l) Press %col.option $+ F10 to attempt join every 20 seconds. | set %-f10join.chan * $2 | unset %_f10dns | halt
raw 472:*mode char*:disps Unknown channel mode- %col.target $+ + $+ $2 | halt
raw 473:*:_nomrej $2 | if ($findtok(%_repjoins,$2,32)) halt | disps [[ $+ %col.info1 $+ $lower($2) $+ ] Cannot join channel- You must be %col.dark $+ invited (mode %col.dark $+ +i) Press %col.option $+ F10 to attempt join every 20 seconds. | set %-f10join.chan * $2 | unset %_f10dns | halt
raw 474:*:_nomrej $2 | if ($findtok(%_repjoins,$2,32)) halt | disps [[ $+ %col.info1 $+ $lower($2) $+ ] Cannot join channel- You are %col.dark $+ banned (mode %col.dark $+ +b) Press %col.option $+ F10 to attempt join every 20 seconds. | set %-f10join.chan * $2 | unset %_f10dns | halt
raw 477:*reg*nick*join*:_nomrej $2 | if ($findtok(%_repjoins,$2,32)) halt | disps [[ $+ %col.info1 $+ $lower($2) $+ ] Cannot join channel- You must have a %col.dark $+ registered nick (mode %col.dark $+ +R) Press %col.option $+ F10 to attempt join every 20 seconds. | set %-f10join.chan * $2 | unset %_f10dns | halt
raw 475:*:{
_nomrej $2
if ($findtok(%_repjoins,$2,32)) halt
set %.key $_ppcfg(Keys,$2)
if (%.key == $null) disps [[ $+ %col.info1 $+ $lower($2) $+ ] Cannot join channel- You need the correct %col.dark $+ key (mode %col.dark $+ +k) No previous key known.
elseif (%.key == %-prevf10join.key) disps [[ $+ %col.info1 $+ $lower($2) $+ ] Cannot join channel- You need the correct %col.dark $+ key (mode %col.dark $+ +k) Stored key was incorrect.
else {
disps [[ $+ %col.info1 $+ $lower($2) $+ ] Cannot join channel- You need the correct %col.dark $+ key (mode %col.dark $+ +k)
disps [[ $+ %col.info1 $+ $lower($2) $+ ] Press %col.option $+ F10 to try joining using last known key ( $+ %col.dark $+ %.key $+ )
set %-f10join.chan $2 %.key | unset %_f10dns
halt
}
set %-f10join.chan * $2 | unset %_f10dns
disps [[ $+ %col.info1 $+ $lower($2) $+ ] Press %col.option $+ F10 to quietly attempt a join every 20 seconds.
halt
}
raw 478:*ban*list*:dispr $2 [[ $+ %col.info1 $+ $lower($2) $+ ] Cannot ban %col.info2 $+ $3 $+ - Ban list is %col.att $+ full | halt
raw 482:*:_chands $nick o $chan | dispr $2 [[ $+ %col.info1 $+ $lower($2) $+ ] Sorry, you aren't a channel operator | halt
if (%-port.serv == $server) titlebar @Ports for %-port.serv (currently on $port $+ )
else titlebar @Ports for %-port.serv (currently on another server)
}
if ($gettok($2,1,91) != %-port.serv) halt
set %.port $remove($_rtok(1,46,$gettok($2,2,91)),])
if (%.port == $null) halt
if (%.port !isin 1024.4444000.4401.4402.6666000.6661.6662.6663.6664.6665.6667.6668.6669.6670.7777000.7001.7002.8888000) set %.warn %col.att $+ (port may not be for public use)
else unset %.warn
set %.speed $calc($5 + $7)
unset %.switch
if ((%.warn == $null) && ((%.speed < %-port.speed) || (%-port.speed == $null))) { set %-port.speed %.speed | set %.switch -s }
raw 364:*:if (($4 >= %-ns.min) && ($4 <= %-ns.max)) { set %_ns.found %_ns.found $2 | dispa $chr(160) ò %col.info2 $+ $2 } | halt
raw 365:*:.disable #-nearserv | if (%_ns.found == $null) dispa No servers found matching criteria. | else { dispa Found %col.target $+ $_numtok(32,%_ns.found) $+ matching servers. Press %col.option $+ ShiftF9 to connect to one randomly. | set %_sf9.server * } | halt
raw 352:*:if (($_not(%+nickcolors)) || ($me !ison $2)) halt | _nickcol $6 $3 $+ @ $+ $4 $6 $+ ! $+ $3 $+ @ $+ $4 $7 | halt
raw 302:*:{
if (($2 == $3) && ($2 != $null)) { unset %-uhsearch %-userhostc?.* | halt }
set %.target $gettok(%-uhsearch,1,32)
set %-uhsearch $gettok(%-uhsearch,2-,32)
if (%.target == .clean) halt
if (%.target == .nick) {
if ($2 == $null) {
if (%_nickretake != $null) { dispa Nickname %col.target $+ %_nickretake $+ no longer in use. Changing to nick... | nick %_nickretake }
.timer903 off | unset %_nickretake %_+nickrc
}
if ($gettok($2,2,64) == $gettok(%-my.address,2,64)) set %.ghost (ghost) | else unset %.ghost
if (((%_+nickdal) && (%.ghost != $null)) || (%_+nickkill)) {
set %.pw %autonk. [ $+ [ %_nickretake ] ]
if (%.ghost != $null) { set %.ghost ghost | dispa Performing automatic NickServ KILL on %col.target $+ %_nickretake $+ ... (ghost detected) }
else { set %.ghost recover | dispa NickServ will release nick in two minutes; Press %col.option $+ CtrlF8 again to release early. | set %_+nickrecv $true }
ns %.ghost %_nickretake $_pwenc(%.pw)
unset %_+nickkill %_+nickdal
}
halt
}
if ((%.target == .group) || (%.target == $null)) {
if ($2 == $null) halt
}
else {
if ($2 == $null) {
set %-userhostc1. [ $+ [ %.target ] ]
set %-userhostc2. [ $+ [ %.target ] ]
_error Address search failed- No such user $+ %.target $+
}
set %.tmp $remove($gettok($2,1,61),*)
if (%-userhostc1. [ $+ [ %.tmp ] ] != $null) {
set %.mask %.tmp $+ ! $+ $_rchop(1,$gettok($2,2,61))
set %.type %-userhostc2. [ $+ [ %.tmp ] ]
if (%.type isnum) set %.mask $_ppmask(%.mask,%.type)
elseif (%.type == *) set %.mask $mask(%.mask,3)
set %.cmd %-userhostc1. [ $+ [ %.tmp ] ]
set %-userhostc1. [ $+ [ %.tmp ] ]
set %-userhostc2. [ $+ [ %.tmp ] ]
$reptok(%.cmd,$chr(44),%.mask,32)
halt
}
}
set %.uh.num $_numtok(32,$2-)
:loopuh
set %.uh.cur $gettok($2-,%.uh.num,32)
set %.wr.nick $remove($gettok(%.uh.cur,1,61),*)
set %.wr.addr %.wr.nick $+ ! $+ $_rchop(1,$gettok(%.uh.cur,2,61))
if ($findtok(%-notifychk,%.wr.nick,32) != $null) {
